home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / LOGIN.DCL < prev    next >
Text File  |  1992-01-08  |  286b  |  11 lines
  1. $       set noverify
  2. $       w :== WRITE SYS$OUTPUT
  3. $       if f$mode() .eqs. "INTERACTIVE"
  4. $               w "Hello " + f$user() + " !"
  5. $               show time
  6. $       else
  7. $               w "µDCL loaded"
  8. $       endif
  9. $       define /key/nolog/erase/term/noecho f12 @cls
  10.  
  11.